home *** CD-ROM | disk | FTP | other *** search
/ Aminet 23 / Aminet 23 (1998)(GTI - Schatztruhe)[!][Feb 1998].iso / Aminet / biz / dopus / DO5CleanRam.lha / CleanRam.dopus5 next >
Text File  |  1997-11-20  |  1KB  |  54 lines
  1. /*     CleanRam.Dopus5 for Directory Opus 5.5+ (GPSoftware)
  2.     by Mark Dyer - mark@intface.zynet.co.uk
  3.     Http://www.geocities.com/SiliconValley/Bay/6358/
  4.  
  5. Installation: 
  6. Copy this script to the Dopus5:Arexx directory.
  7. Create a Button/Menu/ect
  8. call as 
  9. -------------------------------------
  10. Arexx    Dopus5:Arexx/CleanRam.Dopus5
  11. -------------------------------------
  12. Thats it...
  13. */
  14.  
  15. parse arg portname 
  16. if portname='' then  
  17.    portname='DOPUS.1'
  18.  
  19. address value portname
  20. options results
  21.  
  22. lister Query Source
  23. if rc>0 then call NList
  24.     Lister Query Source
  25.         SList=result
  26.     Lister Query Slist Path
  27.         Dir=result
  28.     Lister Read SList 'Ram:'
  29. Call Delete
  30. Lister Read Slist Dir
  31. Exit
  32.  
  33. NList:
  34.     Lister New 'Ram:'
  35.     Lister Query Source
  36.     SList=result
  37. Call Delete
  38. Lister Close Slist
  39. Exit
  40.  
  41. Delete:
  42. Lister Wait SList
  43.  Command Source SList None
  44. Lister Refresh SList Full
  45.     if exists('ram:Clipboards') then lister select SList "Clipboards" on
  46.     if exists('ram:T') then lister select SList "T" on
  47.     if exists('ram:ENV') then lister select SList "ENV" on
  48.     if exists('ram:Disk.info') then lister select SList "Disk.info" on
  49.     Lister Refresh SList Full
  50.         Command Source SList Toggle
  51. Dopus Request '"Clean Ram Disk" OK|No'
  52.     If RC>0 then
  53.         Command Source Slist Delete Quiet
  54. Lister Wait SList